home *** CD-ROM | disk | FTP | other *** search
- object Form4: TForm4
- Left = 195
- Top = 214
- BorderStyle = bsSingle
- Caption = 'Icon to replace...'
- ClientHeight = 215
- ClientWidth = 446
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- Position = poScreenCenter
- Scaled = False
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 14
- object Label2: TLabel
- Left = 22
- Top = 110
- Width = 84
- Height = 14
- Caption = 'Select &new icon: '
- FocusControl = ListBox1
- end
- object Label1: TLabel
- Left = 254
- Top = 38
- Width = 110
- Height = 14
- Caption = 'Select icon to repl&ace: '
- FocusControl = ListBox2
- end
- object Image1: TImage
- Left = 389
- Top = 21
- Width = 32
- Height = 32
- end
- object Image2: TImage
- Left = 159
- Top = 92
- Width = 32
- Height = 32
- end
- object Button1: TButton
- Left = 20
- Top = 30
- Width = 173
- Height = 23
- Caption = '&Open file with new icon...'
- TabOrder = 0
- OnClick = Button1Click
- end
- object Edit1: TEdit
- Left = 20
- Top = 63
- Width = 172
- Height = 22
- Color = 14737632
- Enabled = False
- ReadOnly = True
- TabOrder = 1
- end
- object Button3: TButton
- Left = 253
- Top = 158
- Width = 171
- Height = 25
- Cancel = True
- Caption = '&Close'
- ModalResult = 2
- TabOrder = 4
- end
- object Button4: TButton
- Left = 252
- Top = 128
- Width = 173
- Height = 23
- Caption = '&Replace'
- Enabled = False
- ModalResult = 1
- TabOrder = 5
- end
- object ListBox1: TListBox
- Left = 20
- Top = 130
- Width = 170
- Height = 53
- ItemHeight = 14
- TabOrder = 2
- OnClick = ListBox1Click
- end
- object ListBox2: TListBox
- Left = 252
- Top = 58
- Width = 170
- Height = 53
- ItemHeight = 14
- TabOrder = 3
- OnClick = ListBox2Click
- end
- object OpenDialog1: TOpenDialog
- Filter = 'Icon files (*.exe, *.res, *.ico)| *.exe; *.res; *.ico'
- Options = [ofHideReadOnly, ofFileMustExist]
- Left = 208
- Top = 38
- end
- object ImageList1: TImageList
- Left = 207
- Top = 7
- end
- end
-